#lang racket

(define (sum-two-biggest x y z)
  (cond ((and (<= x y) (<= x z))
         (+ (* y y) (* z z)))
        ((and (<= y x) (<= y z))
         (+ (* x x) (* z z)))
        (else (+ (* x x) (* y y)))))

;(sum-two-biggest 3 2 3)
